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SSETCmipform) 


SIF f7 
SELSE 
SINCLUDE C:Fl:cpyrt.edcp) 


{x Intel Corporation Proprietary Information. 
This listing is supplied under the terms of a 
license agrement with Intel Corporaton and 

may not ba copied nor disclosed except in 
accordance with tha tarms of that agreement. x*/ 


SENDIF 


/*x* George 30 Marshall x*/ 


/x This routine contains TCL initialization code and declarations. 

All global TCL constants and parameters are set here, as LITERALS and 
INITIALS. This routine gets TCL started by doing the KAOS call to create 
all of TCL’s KAOS-related objects, then does initialization of TCL 
internal data structures. This routine also contains the setupicdbh 
routines, which is the only module which knows the mapping between 
leidvector indexes and cdb pointers (Con-board vs offc-board), because 

it needs some of the declared constants. 


Note: Module has ROM directives, and tclSobjects has DATA attribute, 
to convince compiler to generate a CSr-relative address for tclSobjects, 
as required by the KAOS create object call. */ 


/* This version has the i095? dll line speed wart to seat the default 
retransmit timeout value as a function of the baud rate. 
Code to do this is not generated unless the DBP flag is SET in the 
compile invocation lings. 

NOTE: the ratransmit time satting affects only the initial connection 
timeout times, since TCL now does adaptive retransmit timeout computation. */ 


/*x Canditional assembly flags: 


fi: if true, all include files are taken from :F7:, 
if false, from :Fil:. 
Logs if true, code to handle trace buffers is included. 
(normally false in product version) 
dig: if true, some additional debugging consistency 


checking code is included (normally off) 
mMipforms: if true, link and blkptrs in RB are assumed to 
be in mipforms so they are converted to addresses. 
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(normally on) 

if true, include code to set retransmit timeout for 
a 86/12-based OBP system. 

if true, set key declarations for prm configuratione.e. 
fewer onvwboard CO8s, higher max cdhs,s, etc. 


/x Record of Compile-time options in the object code: x*/ 


/* NOTE: an object file can be checked with the tool 
vob1 (version-ofrobject.1) on G Marshall’s system x/ 


DECLARE prog_version_string (*) BYTE DATAC’p_vin’-1, 


“TSTART: 7°, 


LP Leg 
SENOIF 
SiF dig 


“mf ‘, 


wt) of 9 

nem Ain 

=z2nNnaena 
Cc 


SINCLUDE C:FI:TCLGSL.INC) 


/*x TCL Global Literals 


DECLARE 
maxtsend3sseg 


tcltheaderSlen 


dlisheaderSlen 
min3pktSlen 


maxSsegsdatablenSlit LITERALLY 
tcl3protocolScods 


/x end of compile-time record «/ 


[RRR KKK KKK KK KKK KE / 
/*x* Global Literals **/ 
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04/15/82 */ 


LITERALLY /* max no of back=-torback sags that 
/x can send at a time */ 
LITERALLY “20%, /* bytes in tel header */ 


Je ETHERNET~SPECIFIC VALUES x/ 

“44, /* bytes in dll header x/ 

"46", /* minimum total pkt len - bytes */ 

“1480°%, /* (1480) max no. of client bytes in seg */ 
“5001H’-/* DLLCONNECT user type field */ 


LITERALLY 
LITERALLY 


LITERALLY 


tcel$Sprotocol$codeSrev LITERALLY *°0150H’,/* packet header user type field */ 


tcelimipSport 
LlogSrb3smipSport 
mipSechoSport 


tceldversiontzlit 


/x Mise values x*/ 
LITERALLY "4°, /x mip port for IPSINSMBX x/ 
LITERALLY ve hoe /x debugging: mip port for logging */ 
LITERALLY 7", /* mip port of onctbd tcl echo server x*/ 


LITERALLY “101H’%, /* Version of this TCL for seg header */ 


one connection «/ 
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defSnet3idSlit LETER ALLY 41°, /* default Network IO: "this network" x*/ 
onsbdStcltechoSport LITERALLY ie aa /x TCL port of ontboard tel echo server */ 
true LITERALLY “OFFH’, 

false ELT eRALEY “0°, 

forever . LITERALLY “WHILE true’, 


TimeoutSincreaseSstate LITERALLY °1%, J/* In this state the retransmission timeout 


is rapidly increased */ 


Timeout3steadySstatea LITERALLY °0°7 /* In this state the timeout is 


Slowly decreased. This should not be 
changed, it is the initial state since 
a cdb is intialised to zero */ 


SENDIF 
DECLARE tcelSobjects WORD EXTERNAL DATA, /* TCL’s KAOS objects */ 
DECLARE 

added3cediS$memory SLE INITIAL (false), 

J WORD; 
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NOTE: tne following statement specifies the number 

of onwtboard connection data bases, and the total 
supported connection data bases. On-board COss are | 
limited by the amount of ram on the comm board Capprox 
124 bytes as of 12/12/81). There can be a much larger 
number of off-board connection data basesr since only 
three bytes per connection cn board are required 

(the leidfvector and specStype) for referencing them, 
and the. actual storage is supplied by the host OS. 

PRMS require about 1 connection per ISIS workstation, 
plus three connections per Series 4 workstation, plus 

a few extra (two for DJC, one for NML>, one for NCP, and 
a couple of spares for OFS so it can always allocates 
another C93 after using one up. There must be enough 
on-board CD3s so that all onboard processes which do 
an OPEN can run (Cone for NMLs, one more if you put 

the echo server back on). , 

Workstations must have all CDB memory on boards allow 

a few off~board CD3s to accomodate experimental ISIS- 
based applications. 


TCL will work with just one IRB and one LIRB, but for 
better performance, it should probably have one IRB 

for every two or three connections. LIR8s are used 

only for RESETs, but its nie to have two or three at 

the PRM to avoid the Receive Process hung up waiting on. 
one if it has to deal with several in &4 row. 


Five ontboard connections are currently required for 

an ISIS workstation: DFS(1), DJCC2),- NML(1)- NCPC1). 
Seven onwboard connections are currently ragquired for 

a Series 4 workstation: DFSC3), OSCC2Z),- NML(1)- NCPC1). 
If NCP is restricted to run only when OJC is not active, 
then a Series 4 only needs 6 CO8s. There is currently 
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6 1 DECLARE 
SIF PRM 
Selese 
SIF not dbp 
. onSbd3maxsedbs3lit LITERALLY 
maxSedbsSlit LITERALLY 
retransincraaseSlit LITERALLY 
$ELSE 
SENOIF 
MinsretranstiameSlit LITERALLY 
numsSirhs LITERALLY 
numSlirbs LITERALLY 
maxswindowSsizeSlit LITERALLY 
| SENOIF 
defSabortStothiSlit LITERALLY 
defSretranstosdwtlit LITERALLY 
defSpersistSlim$Slit LITERALLY 
aytStimersdwtlit LITERALLY 
aytScount$max$lit LITERALLY 
7 1 DECLARE 
leoid3Svector(maxfcdbs3Slit) WORD 
specStype(max$cdbs31lit) BYT= 
& 1 DECLARE : 
stat STRUCTURE ¢ 
tclSstate BYTE, 
defSabortStoshi WORD, 


defSretranStoSdw OWORD, 


defipersist WORD, 
curSmaxSecdbs SYTE, 
numBedbs BYTE, 


locinet WORD, 


/ /* noe of onboard cdbs */ 
: /* Max no. of supportable cdbs-, 
, /x amount to increase retr time = 


including offbd */ 
50% (1 shift right) x/ 


°10000%, /* min retran time - 8ms */ 

“2°, /* now of internal request blks x/ 

“41°, /* now of long irb’s (for reply RST) x*/ 
"4" sy /* max receive window allowed */ 


“OFFFOH’,/* default abort timeout */ 

"00020000H’,/* initial pkt retran timeout, */ 
/* in 800 nsec units (105 msec) */ 

“00100H’,/* default persistence limit */ 

/* NOTE: the default retransmit time 

times the default persistence limit 

Sives the amount of time that a node 

will wait before giving up on an 

active open that is being rejected 

by the destination node x*/ 


“O024CO000H",/x default are-you~there */ 
/x timeout - about 30 sec x*/ 


“8°; /x times to rectry before aborting */ 

PUBLIC, /x* list of allocated CIOs */ ; 

PUSLIC, /x open specification types for above cids */ 
/x stat is a template for locating all tha 
connectionmindependent status values so that 

they can be copied into the status buffer 

with a MOVB to save code, This structure 


must exactly match file TCLSTA.INC in the 
connection independent part */ 
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LocShost(3) WORD, 
totEpktstraj WORD, 
tot3pktstretran WORD, 
totbrevsbufSrej woORd, 
rtcsdw DWORD), 


DECLARE 
tel$state BYTE PUBLIC ATCAstat.~tcl3state) 
. INITIAL (CO), /* state of teol:2?2?x*/ 
defSabortS$toShi WORD PUBLIC ATCdastat.adefSabortStoshi)d 
INITIAL CdefSabortStoShislit),/* timer is multiple of 52.4 millisec. */ 
detSretranstosdw DWORD PUBLIC ATCaSstat.defsretranstoddw) 
INITIAL CdefS$retranStofdwSlit),/* of timeout */ 


deffpersist WORD PU3LIC AT(CAstat.def3persist) 
INITIAL Cdef3persist$limS lit), 
cursSmaxScdhs BYTE PUBLIC ATCaAstat.curSmaxicdbs) 
TNITIALCon$bd3max$ecdbsS$lit),/* max no of conns x/ 
numsSedbs BYTE PU3LIC ATC&Sstat.anumscdbs) 
INITIAL (0), /* now of cdb’s open now *x/ 
locinet WORD PUBLIC ATCAstat.locSnet) 
INITIAL CdefSnet$SidsSlit), 
loc3host (3) WORD PUBLIC ATCstat.loc3Shost(0)) 
INITIAL (0-0-0), 
tot$oktstrej WORD PUBLIC ATCAstat.totspktssrej) 
INITIAL(Q), /* over all connections */ 
tot$pktsSretran WORD PU3LIC ATC3stat.tot3pktstretran) : 
INITIAL(O), f /* over all connections */ 


totSrev$bufSrej WORD PUBLIC ATC3stat.tot3rcvsbuf$rej) 
INITIALCO), 


rtcddw DWORD PUBLIC ATCAstat.rtcsdw),; /x temnoorary timestamp storage in stat */ 
DECLARE 

onSbdSmaxsedids 3s8YTE PUBLIC INITIAL ConSbd3maxScdbsS$lit),/* onwsboard */ 

maxsedhbs BYTE PUBLIC INITIAL CmaxScedbsSlit), /* length of lcidvector */ 

tcliversion WCRD PUBLIC INITIALCTCLSVersionSlit), /* "version" of TCL */ 

sizeScdhb ~ WORD PUB8LIC, 


MinSratranStime DWORD PUBLIC INITIAL (CminSretranStimeslit), 
RetranSincrease BYTE PUBLIC INITIAL CretranSincreaseSlit),; 


/x Some Receive Process initials x*/ 


DECLARE 
retranSweight WORD PUBLIC INITIALC3), /* weighting of old retransmit 
timeout relative to just- 
computed roundtrips, expressed 
as exponent of two: 
24retransweight is actual weight */ 
badSchk3sum WORD PUBLIC ‘INITIAL (QO); 
/x Some Transmit Process initials */ 
DECLARE 
maxdseg$dataslen WORD PUBLIC INITIAL CmaxSsegqtdataslenslit), /* max now client bytes in seg */ 
maxswindouwSsize BYTE PUBLIC INITIAL (CmaxSwindowSsizeS$lit), 
aytStimersSdw DWORD PUBLIC INITIAL CaytStimerSdw3lit), 
aytScount3max WORD PU8LIC INITIAL CaytScount3max$lit)-, 
SF dig 
SENOIF 


DL /M=3 


124 


n— 


nN) 


mp 


getichkt3address:; 


aoe he CE “Sherk Slr su Se: hor: 2% 

SIF dbp 

SENDIF 

mipsdelSproc: PROCEDURE Cdev, proc) EXTERNAL, 


DECLARE clev 3YTE, 
proc WORD, 
END minsdeltproc, 


PROCEDURE (mipformsy, 

DECLARE mipform$p POINTER, 
ptrso WORD; 

END getSchkSaddress, 


ntr3o) 


min: PROCEDURE(n-m) WORD EXTERNAL; 
DECLARE (nvm) WORD; 
END min,s 
SIF f7 
BELSE 
SSAVE NOLIST INCLUDE (C:F1:KAOS.DCP) 
STF 47 
SELSE 
BSAVE NOLIST INCLUOE C:F1:MIP.DCP) 
SIF 7 
SELSE 
SSAVE NOLIST INCLUDE (:F1:BDLL.OCP) 
SIF f7 
SELSE 
SSAVE NOLIST INCLUDE (€:F1:TCLMBX.INC) 
Sir F7 
SeLSe | 
SSAVE NOLIST INCLUDE (CFI: THACF.INC) 


/x Space for TCL’s Internal Raquest Block (Cf 
communicate with each other under KAOS x/ 
DECLARE 
irbSspace (numd3irhbs) /* "normal" 
Soe EL 
SELSE 


SSAVE NOLIST INCLUDE C:F1: TCLIR3.INC) l 
7 
lirbtepacesa 

SIF Te 

SELSE 

SSAVE NOLIST INCLUDE 


7 


C(nun$lirbs) /*x "lon 


CoP s TLIRS « ENC) 


BYTE 
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/x in tdel */ 


EXTERNAL, /x* in getchk */ 


/x in tcom */ 


[RRR KRKKKKKKK KK KEK KK / 


{[xekx*x IRB Format *xx*/ 
LKRKRKKKKKEKKAKKK KKK KKK 


or TCL’s processes to 


IRB’s space */ 


g"” IR8’s space: used for RESETs x/ 


/x reserve space for onctboard Connection 


Data Bases 
onsbdtedbtstorelConibddmaxtedbstlit) 


*/ 


m 
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SIF f7 
SekSe . 
SSAVE NOLIST INCLUDE (€:F1:TCLCDB.INC) 
7 
/* daclare format of off-board Connection 
Data Bases */ 
off3bdSedbSstoresp POINTER INITIALCOE8000H), 
of f3bdSedbSstore BASED of f3bd$cedbSsstoresp (1) 
SLP 77 
SELSE 
SSAVE NOLIST INCLUDE (:F1:TCLCO8.INC) 


, 


/* main code for TCLSTART x*/ 


tcelSstart: PROCEDURE PUBLIC; 


CALL caScreateSlistCaitcltobjects); /x Tell KAOS to create all my tast objects */ 


/x Initialization code for TCLs it: (a) sets up. 
the tcl "free space" queue for Internal Request 
Blocks, (b) initializes tha locShost value from 
DLL, and (cc) initializes all of TCL’s variables 
that nesd it. */ 


/* Clear out the leid vector *«/ 
CALL SETWCOr Blcidtdvector, max3cdbs)- 
CALL SETSBCOFFH, dspecttype, max$cdbhs), 

/x initialize size cdbs variable for NML */ 
SizeScdb = SIZEConSbdSecdbS$store(O0) )-, 

/* Initialize the IRB space mailbox */ 


30 jg = QO TO numsirbs-1, 
CALL cqSsend(.freeSirb$mbx, ZirbSspace(j) )-; 


/* Initialize the Long IRB space mailbox */ 
DO jg = 0 to num$lirbs-17 
CALL cq$send(.freeaslirbsmbx, @lirb$space(j) ); 


| /x Tell DOLL about TCL, give it RP’s mbx */ 
IF € cqa8dllSconnect(tcl3protocol$code, .serptmbx) )») <> O THEN 
CALL cathalttandScatchifire(hacf3Sdll3conn), 


/* Tell MIP about TCL, give it IP’s mbx */ 
IF € cafmipconnect(tclSminSport, .eiptinSmbx) ) <> O THEN a 
CALL caShaltfandscatch3fireChacfiminconnect); 


/x tell MIP about my delete process procedure */ 


IF (€ eq$mingregister(.mipsdel3proc) ) <> O THEN 
CALL cqshaltSandscatch$fire Chactimipns$register), 


/* Get own local host ID from OLL */ 


PAGE 
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IF caqSdllsread(9,0,-,SlocShost(0)) <> § THEN 
CALL cathalt3andicatchifireChacfsdlltraadShost)-; 


SIF dbo 
BENODIF 


END tcl3start, 


[eR KKK KKK KKK KK KKK KEK] 


/xkkk setupScdbd x«x**/ 
[RRR RIKI RK IK RIK KR KK / 


satupicdh: PROCEDURE Csuscdb3index, suscdb3$p$o0) PUBLIC, 


/* Routine to compute the location of a connection data base, given its */ 
/x index into leidSvector. Cdb storage can be in either of two places: */ 
/* on the comm boards or off it Cin host’s menory) but in either */ 

/x case, the specified cdb area must reside contiguously within ona */ 

/* segment Cor frame). C08’%s indexed by the leid vector always have all */ 
/*x of the on-bd cdb’s first Cif any), then all the off-bd cdb’s next. */ 

/* This routine compares. the cdb index to the onw~bd/off-bd max values */- 
/x to decide how to produce a long pointer to the correct cdb. */ 


DECLARE 
suscdbSindex BYTE- 
sus¢edb3pSo WORD, 
~subedbsp BAS=9 suScdbtoto POINTER, 


IF suScdb index < onSbdi3max$cdbs slit 

THEN suScdbtp = dontbhd3cdbSstore(susScdbsindex); 

ELSE suscdb3p = Soffsbd3cedbtstore(sutcdbtindex - onSbdSmaxScdbsSlit);, 
ENO setunscdb, 


LEK KRKKRKEKKKKKKKKR KKK KEK / 


/*x addScdbS$meamory x*x/ 
[KKK KKK KK KK KKK KEK / 


add$ScdbSmemory: PROCEDURE CparamSp) BSYTE PUBLIC; 


DECLARE 
paramsp POINTER, /x address of parametar block from NML */ 
param BASED param3p STRUCTURE ¢ 
cdb3spacetp POINTER, /* mipform address of new off bd cdb space */ 
cdbSspaceSlen WORD) + /* length in bytes of cdb space */ 
newsScdhs RYTE,s _7* number of new cdbs supplied by this rtn */ 


/x* compute the number of cdbs we get out ~ 
: of this request */ 
newScdbs = param.ecdb3spacetlen / SIZEConS$bdSedb$store (0) ), 
/* return "error" if he has added cdl memory 
before, or if the supplied length is zero */ 
IF addedicdbSmamory OR (new$edbs = 0) THEN RETURN( false), 
| /x check that the memory supplied is at 
a valid and reachable addrass */ 
IF getSchkSaddress(param.cdbSspacesp, .offEbdScdbS$storeSp) THEN 
DO; 
cursmaxSedbs = min€ onSbhd3maxtcdbs$lit + newScdbhs, maxScdbsSiitd, 
/x set flag to prevent second add attempt */ 


~™ 


ROW OW Ol 
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adcdecdicdlbsmemory = true, 
RETURNC true); 
ENC, 
RETURNC false); 


ENO add3cdbSmemory, 


ENO tstart, 
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O02CH 
O028H 


C024H 
0000H 
OOOOH 
OCOGH 
0000H 
OO00H 
0000H 


~ OCOOH 


OO090H 
OOO00K 
O000CH 
OcOOH 
O000H 
OOOOH 
O000H 
0030H 
O0OCH 
OO00H 
OQ0CH 
O000H 
O000K 
Q000H 
OG0O0H 
O0O00H 
O0GOO0H 
OO00H 
Q000H 
O000H 
OOOOH 
Q00Q0H 
QO00H 
OOOOH 
O000H 
OCOOH 
OO000H 
COOQH 
O000K 
O000H 
Q20CH 
OQ00H 
O204H 


CROSS~REFERENCE LISTING 


SIZE NAME, ATTRIBUTES, AND REFERENCES 


BUFO «© » «© «= « 
CQCHECKALARM . 
CRCLEARALARM . 
CQCREATEALARM, 
CQCREATELIST . 
CQCREATEMAILSOX. 
CQCREATEPROCESS., 
CQCREATESEMAPHORE 
CQCRECEIVE . . 
CQCWATT. «2 « 
CQODLLCONNECT . 


PROCEDURE BYTE EXTERNALC25) STACK=O000H 
PROCEDURE EXTERNAL (26) STACK=0000H 
PROCEDURE EXTERNAL(23) STACK=O0000H 


84 ADDCOBMEMORY . . PROCEDURE BYTE PUBLIC STACK=QQ0EH 
1) «ADDEOCOBMEMORY . BYTE INITIAL 154 159% 
4 ALARMP . «6 w» « » POINTER IN PROC (CQCHECKALARM) PARAMETER 
4 ALARMP 2 « 2» «@ «@ POINTER IN PROC CCQCREATEALARM) PARAMETER 
4 ALARMP 2. 2 «© © « POINTER IN PROC CCQSETALARM) PARAMETER 
4- ALARMP 2. « © « « POINTER IN PROC (CQCLEARALARM) PARAMETER 
2 AYTCOUNTMAX. « « WORD PUBLIC INITIAL 
AYTCOUNTMAXLIT . LITERALLY °8% 12 
4 AYTTIMERDW 2 «2 o OWORD PUBLIC INITIAL 
AYTTIMERDWLIT. LITERALLY ’°024C0000H’ 12 
2 BAOCHKSUM. «4 «» « WORD PUBLIC INITIAL 
2 BUFMIPMBX. .« ° WORD EXTERNAL (44) 
2 . WORD IN PROC (CQDLLRXRETBUF) PARAMETER 


PROCEOURE EXTERNAL(13) STACK=O0000H 
PROCEDURE EXTERNALC8) STACK=0000H 
PROCEDURE EXTERNALCI) STACK=0000R 
PROCEDURE POINTER EXTERNAL(16) STACK=0000H 
PROCEOURE BYTE EXTERNAL (12) STACK=0000H 
PROCEDURE 38YTE EXTERNAL (38) STACK=0000H 
PROCEDURE WORD EXTERNAL C36) STACK=0000H 
PROCEDURE WORD EXTERNAL (37) STACK=0000H 
PROCEDURE EXTERNAL(34) STACK=0000H 
PROCEDURE EXTERNAL (C35) STACK=0000H 

WORD EXTERNAL (32) 

PROCEDURE EXTERNAL(33) STACK=O0Q000H 
PROCEDURE EXTERNAL(C7) STACK=0000H 1 
PROCEDURE POINTER EXTERNAL C21) STACK=Q000H 
PROCEDURE 8YTE EXTERNAL (19) STACK=0Q000H 
PROCEDURE EXTERNAL (C20) STACK=0000H. 
PROCEDURE EXTERNAL(18) STACK=0000H 
PROCEDURE BYTE EXTERNAL(28) STACK=O0CO0H 
PROCEDURE POINTER EXTERNAL(30) STACK=O0000H 
PROCEDURE POINTER EXTERNAL (31) STACK=Q000H 
PROCEDURE 8YTE EXTERNAL(C29) STACK=0000H 
PROCEDURE BYTE EXTERNAL C27) STACK=Q000H 
PROCEDURE POINTER EXTERNAL(17) STACK=0000H 
PROCEDURE EXTERNAL(C22) STACK=0000H 
PROCEDURE POINTER EXTERNAL(15) STACK=0CG00H 


CQDLLREAD. « « 
GOHLEREADC: 4-5. 2 
CQDLLRXRETBUF. . 
CQOLLSTART « « 
2 CQDLLTXFREENBX . 
CQDLLTXSEND. « « 
CQHALTANOCATCHFI 
CQICRECEIVE. «a 
COLON ATT ve a: a v6 
COISENDs: a: lo a é 
COQISIGNAL. « 2 « « 
CQMIPCONNECT » 2 a 
CQMIPGETADDRESS. 
CQMIPGETMIPFORM. 
CQMIPREGISTER. « 
CQMIPSEND. . 
CQMRECEIVE . 
CQREADCLOCK. 
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